home *** CD-ROM | disk | FTP | other *** search
/ Treccani Italiana Di Scienze Lettere Ed Arti / [Enciclopedia] Treccani Italiana di scienze lettere ed arti.iso / pc / data / common / scripts.cxt / 00016_Text_16.txt next >
Text File  |  2007-11-07  |  1KB  |  50 lines
  1. inRecordset.SetServerInfoProp ("id", mRecordsetIdCounter)
  2.  
  3.   inRecordset.SetServerInfoProp ("columName", columName)
  4.  
  5.   inRecordset.SetServerInfoProp ("totalCount", totalCount)
  6.  
  7.   inRecordset.SetServerInfoProp ("cursor", cursorPos)
  8.  
  9.   inRecordset.SetServerInfoProp ("serviceName", serviceName)
  10.  
  11.   inRecordset.SetServerInfoProp ("query", query)
  12.  
  13.   
  14.  
  15.   
  16.  
  17.   
  18.  
  19.   serverInfoXML ="<serverInfo "
  20.  
  21.   serverInfoXML = serverInfoXML & " id=" & QUOTE &  String(mRecordsetIdCounter) & QUOTE  
  22.  
  23.   serverInfoXML = serverInfoXML & " columName=" & QUOTE &  columName & QUOTE  
  24.  
  25.   serverInfoXML = serverInfoXML & " totalCount=" & QUOTE &  String(totalCount) & QUOTE
  26.  
  27.   serverInfoXML = serverInfoXML & " cursor=" & QUOTE &  String(cursorPos) & QUOTE
  28.  
  29.   serverInfoXML = serverInfoXML & " serviceName=" & QUOTE & serviceName & QUOTE
  30.  
  31.   serverInfoXML = serverInfoXML & ">" & RETURN
  32.  
  33.   
  34.  
  35.   serverInfoXML =  serverInfoXML & "<query>"& sql &"</query>" &RETURN
  36.  
  37.   serverInfoXML = serverInfoXML & "<initialData>" & RETURN
  38.  
  39.  
  40.  
  41.  
  42.  
  43.         data = "<data>" & RETURN
  44.         data =  data & "<codice>"& record.codice &"</codice>" &RETURN
  45.         data =  data & "<titolo>"& record.titolo &"</titolo>" &RETURN
  46.         data =  data & "<tipo>"& record.titolo &"</tipo>" &RETURN
  47.         data = data & "</data>" &RETURN
  48.         
  49.         initialData = initialData & data& RETURN
  50.